home *** CD-ROM | disk | FTP | other *** search
/ Art Fundamentals - Core Concepts in Art / Art Fundamentals: Core Concepts in Art.iso / pc / color.dxr / 00194.ls < prev    next >
Encoding:
Text File  |  2001-07-16  |  298 b   |  17 lines
  1. on mouseDown me
  2.   hideit(49, 49)
  3.   showit(55, 55)
  4. end
  5.  
  6. on mouseUp me
  7.   global r1, g1, b1, X, Y, squarecolor
  8.   squarecolor = "red"
  9.   r1 = 15 * Y
  10.   g1 = X * 15 / 17 * Y
  11.   b1 = g1
  12.   put sprite(32).color
  13.   sprite(32).color = rgb(r1, g1, b1)
  14.   hideit(55, 55)
  15.   set the memberNum of sprite 61 to 205
  16. end
  17.